10 DIMMN$(12),WO$(99,6),WO(99),WT$(10,10)
100 REM ************************
110 REM *                      *
120 REM *  - CURSUS LATINUS -  *
130 REM *                      *
140 REM *    (C) MAERZ 1985    *
150 REM *                      *
160 REM *  BERND KRAUS         *
170 REM *  AM WALDSCHWIMMBAD 2 *
180 REM *  6909 WALLDORF/BD.   *
190 REM *  TEL.: 06227/2982    *
200 REM *                      *
210 REM *  FUER C=64 + C=1541  *
220 REM *  EVTL. MPS 801       *
230 REM *                      *
240 REM ************************
250 :
260 REM **
270 REM ** VARIABLEN
280 REM **
290 :
300 PRINT"[147]";:POKE53280,6:POKE53281,6
310 T1$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
320 T2$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
330 T3$="[221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
340 T4$="[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
350 T5$="[221][221]                                    [221][221]"
360 T6$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][174][176][192][192][174][176][192][192][178][192][192][192][192][192][192][174][221]"
370 T7$="[221][221][160][160][160][160][160][160][160][160][160][160][160][221][221][160][160][160][160][160][160][160][160][221][221][160][160][221][221][160][160][221][160][160][160][160][160][160][221][221]"
380 T8$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][189][173][192][192][189][173][192][192][177][192][192][192][192][192][192][189][221]"
390 T9$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
400 TA$="[221][221][160][160][160][160][160][160][160][160][160][160][160][221][221][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][221]"
410 TB$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
420 TC$="[221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][174][176][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
430 TD$="[221][221]   [155]RICHTIG   [221]   [221][221]   [221]   [155]FALSCH    [221][221]"
440 TE$="[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][189][173][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
450 TF$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174][176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174][221]"
460 TG$="[221][221][155][215]ORTART    [221][221][154][206]OM[221][154][193]DJ[221][154][193]DV[221][154][214]ER[221][154][196]EP[221][154][211]EM[221][221]"
470 TH$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189][221]"
480 TJ$="[221][176][192][192][174][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]"
490 TK$="[221][221][160][160][221][221][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][221]"
500 TL$="[221][173][192][192][189][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
510 TM$="[221]                                      [221]"
520 TN$="[221][171][192][192][192][192][192][192][192][192][192][192][192][179][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
530 TU$="[221][176][192][192][192][192][192][192][192][192][192][192][192][174]             [176][192][192][192][174][176][192][192][192][192][192][174][221]"
540 TP$="[221][221][160][160][155]RICHTIG[160][160][221][160][160][160][160][160][160][160][160][160][160][160][160][160][221][160][160][160][221][221][160][160][160][160][160][221][221]"
550 TQ$="[221][221]  [155]FALSCH   [221][160][160][160][160][160][160][160][160][160][160][160][160][160][221][160][160][160][221][221][160][160][160][160][160][221][221]"
560 TR$="[221][173][192][192][192][192][192][192][192][192][192][192][192][189][160][160][160][160][160][160][160][160][160][160][160][160][160][173][192][192][192][189][173][192][192][192][192][192][189][221]"
570 TT$="[221][221][155][193]BFRAGEN                    [197]RGEBNIS[221][221]"
580 WT$(1,0)="[206]OMEN":WT$(1,1)="[215]ORT":WT$(1,2)="[199]ENETIV":WT$(1,3)="[199]ENUS"
590 WT$(1,4)="[194]EDEUTUNG 1":WT$(1,5)="[194]EDEUTUNG 2":WT$(1,6)="[194]EDEUTUNG 3"
600 WT$(2,0)="[193]DJEKTIV":WT$(2,1)="[215]ORT":WT$(2,2)="[198]EMININ":WT$(2,3)="[206]EUTRUM"
610 WT$(3,0)="[193]DVERB":WT$(3,1)="[215]ORT"
620 WT$(4,0)="[214]ERB":WT$(4,1)="[215]ORT":WT$(4,2)="[211]TAMMFORM 1"
630 WT$(4,3)="[211]TAMMFORM 2":WT$(4,4)="[211]TAMMFORM 3":WT$(4,5)=WT$(1,4)
640 WT$(4,6)=WT$(1,5):WT$(5,0)="[196]EPONENS":WT$(5,1)="[215]ORT":WT$(5,2)=WT$(4,2)
650 WT$(5,3)=WT$(4,3):WT$(6,0)="[211]EMIDEP.":FORI=1TO3:WT$(6,I)=WT$(5,I):NEXT
660 FORI=2TO6:IFI=4THEN680
670 WT$(I,4)=WT$(1,4):WT$(I,5)=WT$(1,5):WT$(I,6)=WT$(1,6)
680 NEXT
700 MN$(1)="[200][193][213][208][212][205][197][206][213][197]":MN$(2)="[197]DITIEREN":MN$(3)="[193]BFRAGEN":MN$(4)="[196]ISKETTE"
710 MN$(5)="[196]RUCKEN":MN$(6)="[197]NDE":MN$(7)="[197]INGABE":MN$(8)="[214]ERBESSERN"
720 MN$(9)="[204]OESCHEN":MN$(10)="[197]INFUEGEN":MN$(11)="[204]ADEN":MN$(12)="[211]PEICHERN"
730 DD$=""
740 FF$(0)="  ":FF$(1)="[154]F1[155]":FF$(2)="[154]F3[155]":FF$(3)="[154]F5[155]":FF$(4)="[154]F7[155]"
750 FF$(5)="[154]F8[155]":NR=0:NR$="00":IN$="00"
760 LL$="":FORI=1TO36:LL$=LL$+" ":NEXT:LL$=LL$+"":FORI=1TO36
770 LL$=LL$+" ":NEXT:BA=53265:SI=54272:POKESI+24,15
780 WA$(1)="([206]OM.)":WA$(2)="([193]DJ.)":WA$(3)="([193]DV.)":WA$(4)="([214]ERB)"
790 WA$(5)="([196]EP.)":WA$(6)="([211]EM.)"
800 FORI=1TO80:SP$=SP$+"[192]":NEXT
810 :
820 :
830 REM **
840 REM ** HAUPTMENUE
850 REM **
860 :
870 POKEBA,11
880 PRINT"[147]";T1$T3$T5$T5$T4$T3$T5$T4$;:FORI=1TO5:PRINTTJ$TK$TL$;:NEXT
890 PRINTTM$T2$;:POKE2023,125
900 PRINT"[155]";:FORI=1TO6
910 PRINTLEFT$(DD$,4+I*3);
920 PRINTSPC(2);FF$(I-1);SPC(34-LEN(MN$(I)));MN$(I);:NEXT
930 PRINT"           [195][213][210][211][213][211][160][204][193][212][201][206][213][211]"
940 PRINT"[145][155]      VON [194]ERND [203]RAUS ([195]) 1985":POKEBA,27
950 GETA$:IFA$=""THEN950
960 IFA$="[133]"THEN1040
970 IFA$="[134]"THEN2490
980 IFA$="[135]"THEN3760
990 IFA$="[136]"THEN4670
1000 IFA$="[140]"THENPRINT"[147]";:END
1010 GOTO940
1020 :
1030 :
1040 REM **
1050 REM ** EDITIEREN
1060 REM **
1070 :
1080 POKEBA,11
1090 PRINT"[147]";T1$T3$T5$T5$T4$T6$T7$T8$T9$;:FORI=1TO5:PRINTTA$TN$;:NEXT
1100 PRINTTA$TB$TF$TG$TH$T2$;:POKE2023,125:WX=NR:GOSUB5440:NR$=WX$:PRINT"[155]";
1110 PRINTLEFT$(DD$,7)""MN$(2)"  "TAB(25)NR$TAB(29)IN$TAB(32)WO$(NR,0)
1120 PRINTLEFT$(DD$,7)SPC(15)WT$(WO(NR),0):FORI=1TO6
1130 PRINTLEFT$(DD$,8+2*I)""WT$(WO(NR),I):PRINTLEFT$(DD$,8+2*I)SPC(16);
1140 PRINTWO$(NR,I):NEXT
1150 PRINT"[154] 1 [146][155] [197]INGABE   [154] 2 [146][155] [214]ERBESSERN   [154] F8 [146][155]"
1160 PRINT"[154] 3 [146][155] [204]OESCHEN  [154] 4 [155][146] [197]INFUEGEN    [201]NFO"
1170 POKEBA,27
1180 GETA$:IFA$=""THEN1180
1190 IFA$="1"THEN1320
1200 IFA$="2"THEN1550
1210 IFA$="3"THEN1640
1220 IFA$="4"THEN1780
1230 IFA$="[133]"THEN1920
1240 IFA$="[134]"THEN2020
1250 IFA$="[135]"THEN1870
1260 IFA$="[136]"THEN1970
1270 IFA$="+"ORA$="-"THEN2070
1280 IFA$="[140]"THEN2160
1290 IFA$="_"THEN830
1300 GOTO1180
1310 :
1320 REM ** EINGABE
1330 IFQ1>99THEN2400
1340 GOTO1510
1350 PRINTLL$"[215]ORTART MIT [154] < [146][155] UND [154] > [146][155] WAEHLEN"
1360 PRINT"[154] [210]ETURN [146][155]: [197]NDE DER [197]INGABE"
1370 IFET=1THENPRINTLEFT$(DD$,7)""MN$(8):GOTO1590
1380 IFET=2THENPRINTLEFT$(DD$,7)""MN$(10)"  ":GOTO1400
1390 PRINTLEFT$(DD$,7)""MN$(7)"    "
1400 GOSUB5480
1410 PRINTLEFT$(DD$,7)SPC(15)WT$(AW,0)
1420 FORI=1TO6:PRINTLEFT$(DD$,8+2*I)""WT$(AW,I):NEXT:WO(Q1)=AW
1430 PRINTLL$"[215]ORT EINGEBEN"
1440 GOSUB5590
1450 REMIFET=1THENRETURN
1460 IFET=0THENQ1=Q1+1
1470 FORI=1TO6:ZZ$(I)="":ZZ(I)=0:NEXT
1480 IFET<>0THENRETURN
1490 NR=Q1-1:GOTO1040
1500 :
1510 PRINT""LEFT$(DD$,7)T7$;:FORI=1TO6:PRINTLEFT$(DD$,8+2*I)TA$;:NEXT
1520 PRINTLEFT$(DD$,7)SPC(25);:WX=Q1:GOSUB5440:PRINT"[155]"WX$;"[155]"IN$
1530 GOTO1350
1540 :
1550 REM ** VERBESSERN
1560 IFQ1=0THEN1180
1570 ET=1:Q2=Q1:Q1=NR:GOSUB1320
1580 Q1=Q2:NR=Q1-1:ET=0:GOTO1040
1590 ZZ$(0)=WO$(Q1,0):ZZ(0)=LEN(ZZ$(0)):PRINTLEFT$(DD$,7)SPC(32)ZZ$(0);
1600 FORI=1TO6:ZZ$(I)=WO$(Q1,I):ZZ(I)=LEN(ZZ$(I)):PRINTLEFT$(DD$,8+2*I);
1610 PRINTSPC(16)ZZ$(I);:NEXT
1620 GOTO1400
1630 :
1640 REM ** LOESCHEN
1650 IFQ1=0THEN1180
1660 PRINTLEFT$(DD$,7)""MN$(9)"   "
1670 PRINTLL$"[196]ATENSATZ WIRD GELOESCHT."
1680 IFNR=Q1-1THEN1740
1690 FORI=NRTOQ1-2:FORJ=0TO6
1700 WO$(I,J)=WO$(I+1,J):NEXT:WO(I+1)=WO(I):NEXT
1710 Q1=Q1-1:IFQ1=-1THENQ1=0
1720 NR=NR-1:IFNR=-1THENNR=0
1730 GOTO1040
1740 FORI=0TO6:WO$(NR,I)="":NEXT:WO(NR)=0
1750 Q1=Q1-1:NR=NR-1:IFNR=-1THENNR=0
1760 GOTO1040
1770 :
1780 REM ** EINFUEGEN
1790 IFQ1>99THEN2400
1800 IFQ1=0THEN1180
1810 PRINTLEFT$(DD$,7)""MN$(10)"  "
1820 FORI=Q1TONR+1STEP-1:FORJ=0TO6
1830 WO$(I,J)=WO$(I-1,J):NEXT:WO(I)=WO(I-1):NEXT
1840 Q2=Q1:Q1=NR:ET=2:GOSUB1320:ET=0:NR=Q1:Q1=Q2:Q1=Q1+1
1850 GOTO1040
1860 :
1870 REM ** BLAETTERN VOR
1880 IFQ1=0THEN1040
1890 NR=NR+1:IFNR>Q1-1ORNR>99THENNR=0:GOTO1040
1900 GOTO1040
1910 :
1920 REM ** BLAETTERN 10 VOR
1930 IFQ1<10THEN1040
1940 NR=NR+10:IFNR>Q1-1ORNR>99THENNR=0:GOTO1040
1950 GOTO1040
1960 :
1970 REM ** BLAETTERN ZURUECK
1980 IFQ1=0THEN1040
1990 NR=NR-1:IFNR<0THENNR=Q1-1:GOTO1040
2000 GOTO1040
2010 :
2020 REM ** BLAETTERN 10 ZURUECK
2030 IFQ1<10THEN1040
2040 NR=NR-10:IFNR<0THENNR=Q1-1:GOTO1040
2050 GOTO1040
2060 :
2070 REM ** GESAMMTINDEX
2080 I1=VAL(LEFT$(IN$,1)):I2=VAL(RIGHT$(IN$,1))
2090 IFA$="+"THENI1=I1+1:IFI1>9THENI1=0
2100 IFA$="-"THENI2=I2+1:IFI2>9THENI2=0
2110 WX=I1*10+I2:GOSUB5440:IN$=WX$
2120 PRINTLEFT$(DD$,7)SPC(29)IN$
2130 IFES=1THENGOTO6130
2140 GOTO1180
2150 :
2160 REM ** INFO **
2170 GOSUB6180
2180 PRINT"[155]*  [201]NFORMATIONEN ZUM [208]ROGRAMMTEIL  *"
2190 PRINT"[145]             [197][196][201][212][201][197][210][197][206][155]"
2200 PRINTLEFT$(DD$,7)" [154] _ [155] [200]AUPTMENUE"
2210 PRINTLEFT$(DD$,8)"[154] F1 [155] [194]LAETTERN 1[207] [197]INHEITEN VOR"
2220 PRINTLEFT$(DD$,9)"[154] F3 [155] [194]LAETTERN 1[207] [197]INHEITEN ZURUECK"
2230 PRINTLEFT$(DD$,10)"[154] F5 [155] [194]LAETTERN 1 [197]INHEIT VOR"
2240 PRINTLEFT$(DD$,11)"[154] F7 [155] [194]LAETTERN 1 [197]INHEIT ZURUECK"
2250 PRINTLEFT$(DD$,12)" [154] + [155] [200]AUPTINDEX UM 1[207] ERHOEHEN"
2260 PRINTLEFT$(DD$,13)" [154] - [155] [200]AUPTINDEX UM 1 ERHOEHEN"
2270 PRINTLEFT$(DD$,14)" [221][155][194]EIM [204]OESCHEN/[197]INFUEGEN WIRD DIE[221][155]"
2280 PRINTLEFT$(DD$,15)" [221][155]ANGEWAEHLTE [206]UMMER GEL./EINGEF.[160][221][155]"
2290 PRINTLEFT$(DD$,17)"[197]INGABE/[214]ERBESSERN:[155]"
2300 PRINTLEFT$(DD$,18)"[154] F1 [155]     [197]INGABE BEENDET"
2310 PRINTLEFT$(DD$,19)"[154] F3 [155]     [193]LLE [218]EILEN LOESCHEN"
2320 PRINTLEFT$(DD$,20)"[154] [200]OME [155]   [218]EILE LOESCHEN"
2330 PRINTLEFT$(DD$,21)"[154] [210]ET [155]    [218]EILE WEITER"
2340 PRINTLEFT$(DD$,22)"[154] [211]F-[210]ET [155] [218]EILE HOCH"
2350 PRINTLEFT$(DD$,23)"                    <[212]ASTE DRUECKEN>"
2360 POKEBA,27
2370 GETA$:IFA$=""THEN2370
2380 GOTO1040
2390 :
2400 REM ** UEBERLAUF
2410 PRINTLL$"[218]U VIELE [196]ATEN IM [211]PEICHER!"
2420 PRINT"[145] < [212]ASTE DRUECKEN >"
2430 TT=12:GOSUB6250
2440 GETA$:IFA$=""THEN2440
2450 POKESI+4,0
2460 GOTO1040
2470 :
2480 :
2490 REM **
2500 REM ** ABFRAGEN
2510 REM **
2520 :
2530 POKEBA,11:ZF=0:R0=0:F0=0:R1=0:F1=0
2540 PRINT"[147]";T1$T3$T5$T5$T4$T6$T7$T8$T9$;:FORI=I=1TO4:PRINTTA$TN$;:NEXT
2550 PRINTTA$TB$TC$TD$TE$T2$;:POKE2023,125
2560 PRINTLEFT$(DD$,7)"[155]"MN$(3)"   "
2570 POKEBA,27
2580 IFQ1=0THEN3450
2590 IFER<>1THENUW$=""
2600 IFER=1THENER=0:ZF=2:ZF$=UW$:UW$="":GOTO2700
2610 PRINT"[154] 1 [146][155] [193]BFRAGEN IN DER [210]EIHENFOLGE [154] F8 "
2620 PRINT"[145] 2 [146][155] [218]UFAELLIGE [210]EIHENFOLGE      [201]NFO"
2630 GETA$:IFA$=""THEN2630
2640 IFA$="1"THENZF=1:GOTO2690
2650 IFA$="2"THENZF=2:GOTO2690
2660 IFA$="_"THEN830
2670 IFA$="[140]"THEN3540
2680 GOTO2630
2690 ZF$="":FORI=0TOQ1-1:ZF$=ZF$+CHR$(I+32):NEXT
2700 FORHS=0TOLEN(ZF$)-1:PRINTLL$:RF=0:R0=0:F0=0
2710 IFZF=1THENNR=HS:GOTO2760
2720 RD%=RND(1)*(LEN(ZF$)-1)+1
2730 NR=ASC(MID$(ZF$,RD%))-32
2740 IFRD%=1THENZF$=RIGHT$(ZF$,LEN(ZF$)-RD%):GOTO2760
2750 ZF$=LEFT$(ZF$,RD%-1)+RIGHT$(ZF$,LEN(ZF$)-RD%)
2760 PRINTLEFT$(DD$,7)SPC(15)"        ":WX=NR:GOSUB5440:NR$=WX$
2770 PRINTLEFT$(DD$,7)SPC(15)WT$(WO(NR),0):PRINTLEFT$(DD$,7)SPC(25)NR$
2780 FORJ=1TO6:AA$=LEFT$(DD$,8+2*J):PRINTAA$"           "
2790 PRINTAA$""WT$(WO(NR),J);
2800 PRINTAA$SPC(15)"                     "
2810 NEXT
2820 PRINTLEFT$(DD$,10)SPC(16)""WO$(NR,1)"[155]"
2830 PRINTLEFT$(DD$,23)"   RICHTIG   "TAB(25)"   FALSCH    "
2840 ES=2:GOSUB5590:ES=0
2850 IFWO(NR)=3THEN2930
2860 ER=0:IFWO(NR)=2THENER=1
2870 FORJ=2TO3+ER
2880 IFWO$(NR,J)=""THEN2920
2890 IFZZ$(J)=WO$(NR,J)THENR0=R0+1:GOTO2910
2900 F0=F0+1
2910 RF=RF+1
2920 NEXT
2930 IFER=1THEN3200
2940 MX=3:FORJ=4TO6
2950 M(J)=0:W$=WO$(NR,J):IFW$=""THENMX=MX-1:GOTO2980
2960 IFW$=ZZ$(4)ORW$=ZZ$(5)ORW$=ZZ$(6)THENM(J)=1
2970 RF=RF+1
2980 NEXT
2990 R2=M(4)+M(5)+M(6):F0=F0+MX-R2:R0=R0+R2
3000 IFRF<>R0THENUW$=UW$+CHR$(NR+32)
3010 IFR0=0THENPRINTLL$"[215]ORT NICHT GEWUSST.":GOTO3050
3020 IFRF<>R0THENPRINTLL$"[215]ORT UNVOLLSTAENDIG GEWUSST.":GOTO3050
3030 PRINTLL$"[215]ORT GEWUSST.":PRINTLEFT$(DD$,23)"   RICHTIG   [146]";
3040 TT=35:GOSUB6250:R1=R1+R0:GOTO3120
3050 PRINTLEFT$(DD$,23)TAB(25)"   FALSCH    [146]";:GOSUB6270
3060 FORK=1TO300:NEXT
3070 PRINTLL$"[210]ICHTIG LAUTET ES:"
3080 FORJ=2TO6:PRINTLEFT$(DD$,8+2*J)SPC(15)"                     "
3090 PRINTLEFT$(DD$,8+2*J)SPC(16)WO$(NR,J)
3100 NEXT
3110 R1=R1+R0:F1=F1+F0
3120 WX=R1:GOSUB5400:R1$=WX$:WX=F1:GOSUB5400:F1$=WX$
3130 PRINTLEFT$(DD$,23)TAB(16)""R1$TAB(21)F1$"[155]"
3140 PRINT" < [212]ASTE DRUECKEN >"
3150 GETA$:IFA$=""THEN3150
3160 POKESI+4,0
3170 IFA$="_"THENFORI=0TO6:ZZ$(I)="":ZZ(I)=0:NEXT:GOTO830
3180 FORJ=2TO6:ZZ$(J)="":ZZ(J)=0:NEXT
3190 NEXT:GOTO3280
3200 MX=2:FORJ=5TO6
3210 M(J)=0::W$=WO$(NR,J):IFW$=""THENMX=MX-1:GOTO3240
3220 IFW$=ZZ$(5)ORW$=ZZ$(6)THENM(J)=1
3230 RF=RF+1
3240 NEXT
3250 R2=M(5)+M(6):F0=F0+MX-R2:R0=R0+R2
3260 GOTO3000
3270 :
3280 REM ** ERGEBNIS
3290 POKEBA,11
3300 PRINT"[147]"T1$T3$T5$T5$T4$T3$TT$T4$TM$TM$TM$TU$TP$TR$TU$TQ$TR$;
3310 PRINTTM$TM$TM$TM$T3$T5$T4$T2$;:POKE2023,125
3320 PRINT"[154] 1 [146][155] ALLE NICHT GEW. [214]OK. WIEDERHOLEN"
3330 PRINT"[145][154] 2 [146][155] ALLE [214]OK. WIEDERHOLEN  [154] _ [146][155] [205]ENUE"
3340 RF=R1+F1:RR=INT(R1/RF*100+.5):FF=100-RR
3350 WX=RR:GOSUB5400:RR$=WX$:WX=FF:GOSUB5400:FF$=WX$
3360 PRINTLEFT$(DD$,13)SPC(28)R1$""RR$" %"
3370 PRINTLEFT$(DD$,16)SPC(28)F1$""FF$"[160]%"
3380 POKEBA,27
3390 GETA$:IFA$=""THEN3390
3400 IFA$="_"THEN830
3410 IFA$="1"THENIFF1<>0THENER=1:GOTO2530
3420 IFA$="2"THEN2530
3430 GOTO3390
3440 :
3450 REM ** KEINE VOKABELN
3460 PRINTLL$"[203]EINE [214]OKABELN IM [211]PEICHER."
3470 PRINT"[145]< [212]ASTE DRUECKEN >"
3480 TT=12:GOSUB6250
3490 GETA$:IFA$=""THEN3490
3500 POKESI+4,0
3510 GOTO830
3520 :
3530 REM ** INFO
3540 GOSUB6180
3550 PRINT"[155]*  [201]NFORMATIONEN ZUM [208]ROGRAMMTEIL  *"
3560 PRINT"[145]              [193][194][198][210][193][199][197][206][155]"
3570 PRINTLEFT$(DD$,8)"[197]INGABE[155]"
3580 PRINTLEFT$(DD$,9)"[154] F1 [155]     [197]INGABE BEENDET"
3590 PRINTLEFT$(DD$,10)"[154] F3 [155]     [193]LLE [218]EILEN LOESCHEN"
3600 PRINTLEFT$(DD$,11)"[154] [200]OME [155]   [218]EILE LOESCHEN"
3610 PRINTLEFT$(DD$,12)"[154] [210]ET [155]    [218]EILE WEITER"
3620 PRINTLEFT$(DD$,13)"[154] [211]F-[210]ET [155] [218]EILE HOCH"
3630 PRINTLEFT$(DD$,14)"[154] _ [155]      [193]BFRAGE BEENDEN"
3640 PRINTLEFT$(DD$,16)"[193]USWAHL[155]"
3650 PRINTLEFT$(DD$,17)"[154] 1 [155] [198]RAEGT ALLE [214]OKABELN DER [210]EIHEN-"
3660 PRINTLEFT$(DD$,18)"    FOLGE NACH AB."
3670 PRINTLEFT$(DD$,19)"[154] 2 [155] [215]AEHLT EINE ZUFAELLIGE [210]EIHEN-"
3680 PRINTLEFT$(DD$,20)"    FOLGE."
3690 PRINTLEFT$(DD$,21)"[154] _ [155] [200]AUPTMENUE"
3700 PRINTLEFT$(DD$,23)"                    <[212]ASTE DRUECKEN>"
3710 POKEBA,27
3720 GETA$:IFA$=""THEN3720
3730 GOTO2490
3740 :
3750 :
3760 REM **
3770 REM ** DISKETTE
3780 REM **
3790 :
3800 POKEBA,11
3810 PRINT"[147]"T1$T3$T5$T5$T4$T6$T7$T8$T9$TA$TB$;:FORI=1TO10:PRINTTM$;:NEXT
3820 PRINTT3$T5$T4$T2$;:POKE2023,125
3830 PRINTLEFT$(DD$,7)"[155]"MN$(4)"   "TAB(29)IN$
3840 PRINTLEFT$(DD$,10)"[198]ILENAME:"FL$
3850 PRINTLEFT$(DD$,23)"00, OK,00,00"
3860 PRINTLL$"[154] 1 [155][146] [204]ADEN   [154] 2 [155][146] [211]PEICHERN       [154] _ [155][146]"
3870 PRINT"[154] 3 [155][146] [204]ADEN NAECHSTER [201]NDEX      [205]ENUE"
3880 POKEBA,27
3890 GETA$:IFA$=""THEN3890
3900 IFA$="_"THEN830
3910 IFA$="1"THEN3960
3920 IFA$="2"THEN4200
3930 IFA$="3"THEN4440
3940 GOTO3890
3950 :
3960 REM ** LADEN
3970 GOSUB6070
3980 IFFL$=""THEN3800
3990 OPEN1,8,2,FL$+"."+IN$+",S,R"
4000 OPEN2,8,15
4010 INPUT#1,Q1
4020 IFST=66THEN4550
4030 FORI=0TOQ1-1
4040 FORJ=0TO6
4050 INPUT#1,WO$(I,J)
4060 IFWO$(I,J)="[166]"THENWO$(I,J)=""
4070 IFST=66THEN4550
4080 NEXT
4090 INPUT#1,WO(I)
4100 IFST=66THEN4550
4110 NEXT
4120 CLOSE2:CLOSE1
4130 PRINTLL$"[196]ATEN SIND GELADEN."
4140 TT=45:GOSUB6250
4150 PRINT"[145] < [212]ASTE DRUECKEN >"
4160 GETA$:IFA$=""THEN4160
4170 POKESI+4,0
4180 GOTO830
4190 :
4200 REM ** SPEICHERN
4210 IFQ1=0THEN3450
4220 GOSUB6070:IFFL$=""THEN3800
4230 OPEN1,8,2,FL$+"."+IN$+",S,W"
4240 OPEN2,8,15
4250 PRINT#1,Q1
4260 IFST=66THEN4550
4270 FORI=0TOQ1-1
4280 FORJ=0TO6
4290 IFWO$(I,J)=""THENPRINT#1,"[166]":GOTO4310
4300 PRINT#1,WO$(I,J)
4310 IFST=66THEN4550
4320 NEXT
4330 PRINT#1,WO(I)
4340 IFST=66THEN4550
4350 NEXT
4360 CLOSE2:CLOSE1
4370 PRINTLL$"[196]ATEN SIND ABGESPEICHERT."
4380 PRINT"[145] < [212]ASTE DRUECKEN >"
4390 TT=45:GOSUB6250
4400 GETA$:IFA$=""THEN4400
4410 POKESI+4,0
4420 GOTO830
4430 :
4440 REM ** LADEN NAECHSTER INDEX
4450 IFFL$<>""THEN4510
4460 PRINTLL$"[203]EINE [199]RUNDDATEI VORHANDEN."
4470 PRINT"[145]< [212]ASTE DRUECKEN >"
4480 TT=12:GOSUB6250
4490 GETA$:IFA$=""THEN4490
4500 POKESI+4,0:GOTO3860
4510 IN=VAL(IN$):IN=IN+1:IFIN>99THENIN=0
4520 WX=IN:GOSUB5440:IN$=WX$
4530 PRINTLEFT$(DD$,7)SPC(29)IN$:GOTO3990
4540 :
4550 REM ** DISKERROR
4560 DS$=""
4570 GET#2,A$:DS$=DS$+A$:IFST<>64THEN4570
4580 PRINTLEFT$(DD$,23)"";:FORI=1TO36:PRINT" ";:NEXT
4590 PRINTLEFT$(DD$,23)""DS$;
4600 CLOSE2:CLOSE1
4610 PRINTLL$"[196]ISKERROR"
4620 PRINT"[145][160]< [212]ASTE DRUECKEN >"
4630 GETA$:IFA$=""THEN4630
4640 GOTO3800
4650 :
4660 :
4670 REM **
4680 REM ** DRUCKEN
4690 REM **
4700 :
4710 POKEBA,11
4720 PRINT"[147]"T1$T3$T5$T5$T4$T6$T7$T8$T9$TA$TB$;:FORI=1TO10:PRINTTM$;:NEXT
4730 PRINTT3$T5$T4$T2$;:POKE2023,125
4740 PRINTLEFT$(DD$,7)"[155]"MN$(5)"    ";
4750 PRINTLEFT$(DD$,10)"[196]RUCKTITEL:"
4760 PRINT"[154] 1 [146][155] [196]RUCKEN"
4770 PRINT"[145][154] _ [146][155] [205]ENUE"
4780 POKEBA,27
4790 IFQ1=0THEN3450
4800 GETA$:IFA$=""THEN4800
4810 IFA$="_"THEN830
4820 IFA$="1"THEN4840
4830 GOTO4800
4840 PRINTLL$"[155][196]RUCKTITEL EINGEBEN."
4850 ES=7:GOSUB5920:ES=0
4860 IFFL$=""THEN830
4870 PRINTLL$"[155][193]BBRUCH MIT [154] [211]HIFT [204]OCK [146][155]"
4880 OPEN1,4,7
4890 PRINT#1,CHR$(14)FL$CHR$(15)
4900 PRINT#1,SP$:PRINT#1
4910 I=-1
4920 I=I+1:IFI=Q1THEN5090
4930 WX=I:GOSUB5440:II$=WX$
4940 PRINT#1,II$;" ";WO$(I,0)+LEFT$("      ",6-LEN(WO$(I,0)));" ";
4950 PRINT#1,WO$(I,1);
4960 IFWO(I)=4THEN5110
4970 IFWO(I)=5ORWO(I)=6THEN5180
4980 IFWO$(I,2)<>""THENPRINT#1,"; "WO$(I,2);
4990 IFWO$(I,3)<>""THENPRINT#1,"; "WO$(I,3);
5000 PRINT#1
5010 PRINT#1,"  ";WA$(WO(I));"  ";
5020 PRINT#1,WO$(I,4);
5030 IFWO$(I,5)<>""THENPRINT#1,"; "WO$(I,5);
5040 IFWO$(I,6)<>""THENPRINT#1,"; "WO$(I,6);
5050 PRINT#1
5060 PRINT#1
5070 IFPEEK(653)=0THEN4920
5080 GOTO5230
5090 PRINT#1:PRINT#1:CLOSE1
5100 GOTO5280
5110 PRINT#1
5120 PRINT#1,"  "WA$(4)"  ";
5130 PRINT#1,WO$(I,2);"; "WO$(I,3)"; "WO$(I,4);
5140 PRINT#1
5150 PRINT#1,SPC(10);WO$(I,5);
5160 IFWO$(I,6)<>""THENPRINT#1,"; "WO$(I,6);
5170 GOTO5050
5180 PRINT#1
5190 PRINT#1,"  ";WA$(WO(I));"  ";
5200 PRINT#1,WO$(I,2);
5210 IFWO$(I,3)<>""THENPRINT#1,"; ";WO$(I,3);
5220 PRINT#1:PRINT#1,SPC(10);:GOTO5020
5230 PRINTLL$"[155][193]BBRUCH":PRINT"[145]< [212]ASTE DRUECKEN[160]>"
5240 TT=12:GOSUB6250
5250 GETA$:IFA$=""THEN5250
5260 POKESI+4,0
5270 GOTO4670
5280 PRINTLL$"[198]ERTIG."
5290 PRINT"[145]< [212]ASTE DRUECKEN >"
5300 TT=45:GOSUB6250
5310 GETA$:IFA$=""THEN5310
5320 POKESI+4,0
5330 GOTO4670
5340 :
5350 :
5360 REM **
5370 REM ** UNTERPROGRAMME
5380 REM **
5390 :
5400 REM ** UMRECHNUNG ZAHL-USING(3)
5410 WX$=STR$(WX):LW=LEN(WX$):WX$=RIGHT$(WX$,LW-1):WX$=LEFT$("  ",4-LW)+WX$
5420 RETURN
5430 :
5440 REM ** UMRECHNUNG ZAHL-USING(2)
5450 WX$=STR$(WX):LW=LEN(WX$):WX$=RIGHT$(WX$,LW-1):WX$=LEFT$("0",3-LW)+WX$
5460 RETURN
5470 :
5480 REM ** WAHL DER WORTART
5490 PS=56187:AW=1
5500 PA=PS+AW*4:POKEPA,1:POKEPA+1,1:POKEPA+2,1
5510 GETA$:IFA$=""THEN5510
5520 IFA$<>","ANDA$<>"."ANDA$<>CHR$(13)THEN5510
5530 POKEPA,14:POKEPA+1,14:POKEPA+2,14
5540 IFA$=CHR$(13)THENRETURN
5550 IFA$=","THENAW=AW-1:IFAW=0THENAW=6
5560 IFA$="."THENAW=AW+1:IFAW=7THENAW=1
5570 GOTO5500
5580 :
5590 REM ** EINGABE: INDEX & WOERTER
5600 ZZ=ES
5610 IFZZ=0THENPRINTLEFT$(DD$,7)SPC(32)ZZ$(0);:GOTO5630
5620 PRINTLEFT$(DD$,8+2*ZZ)SPC(16)ZZ$(ZZ);
5630 PRINT"[164]";
5640 GETA$:IFA$=""THEN5640
5650 IFA$=CHR$(13)THEN5760
5660 IFA$=CHR$(20)THEN5840
5670 IFA$=CHR$(19)THEN5800
5680 IFA$=CHR$(141)THEN5780
5690 IFA$=CHR$(133)THEN5890
5700 IFA$=CHR$(134)THEN5860
5710 IFA$<" "ORA$>"[218]"THEN5640
5720 IFA$>CHR$(122)ANDA$<CHR$(192)THEN5640
5730 IFZZ(ZZ)=20THEN5640
5740 IFZZ(ZZ)=5ANDZZ=0THEN5640
5750 ZZ$(ZZ)=ZZ$(ZZ)+A$:ZZ(ZZ)=ZZ(ZZ)+1:PRINT"[157]"A$"[164]";:GOTO5640
5760 ZZ=ZZ+1:IFZZ=7THENZZ=0+ES
5770 PRINT"[157] ":GOTO5610
5780 ZZ=ZZ-1:IFZZ=-1+ESTHENZZ=6
5790 PRINT"[157] ":GOTO5610
5800 ZZ$(ZZ)="":ZZ(ZZ)=0
5810 IFZZ=0THENPRINTLEFT$(DD$,7)SPC(32)"[164]     ";:GOTO5610
5820 PRINTLEFT$(DD$,8+2*ZZ)SPC(16)"[164]                    ";:GOTO5610
5830 GOTO5640
5840 IFZZ(ZZ)=0THEN5610
5850 ZZ$(ZZ)=LEFT$(ZZ$(ZZ),ZZ(ZZ)-1):ZZ(ZZ)=ZZ(ZZ)-1:PRINT"[157] ":GOTO5610
5860 IFES=2THENET=1
5870 FORI=1+ETTO6:ZZ$(I)="":ZZ(I)=0:PRINTLEFT$(DD$,8+2*I)SPC(16);
5880 PRINT"                    ":NEXT:ZZ=0+ES:ET=0:GOTO5610
5890 IFES=1THENRETURN
5900 FORI=0TO6:WO$(Q1,I)=ZZ$(I):NEXT:RETURN
5910 :
5920 REM ** EINGABE FILENAME
5930 FL$="":PRINTLEFT$(DD$,10)SPC(16)"                     "
5940 PRINTLEFT$(DD$,10)SPC(16)FL$"[164]";
5950 GETA$:IFA$=""THEN5950
5960 IFA$=CHR$(19)THEN5930
5970 IFA$=CHR$(20)THEN6040
5980 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
5990 IFA$=CHR$(34)THEN5950
6000 IFA$<" "ORA$>"[218]"THEN5950
6010 IFA$>"_"ANDA$<"[193]"THEN5950
6020 IFLEN(FL$)=13+ESTHEN5950
6030 FL$=FL$+A$:GOTO5940
6040 FL=LEN(FL$):IFFL<2THEN5930
6050 FL$=LEFT$(FL$,FL-1):PRINT"[157][160]";:GOTO5940
6060 :
6070 REM ** EINGABE KONTROLLE
6080 PRINTLL$"[198]ILENAME EINGEBEN."
6090 GOSUB5920
6100 IFFL$=""THENRETURN
6110 PRINTLL$"[201]NDEX EINGEBEN."
6120 PRINT"[145][154] + [146][155] 10 [197]INH. VOR"TAB(60)"[154] - [146][155] 1 [197]INH. VOR"
6130 GETA$:IFA$=""THEN6130
6140 IFA$="+"ORA$="-"THENES=1:GOTO2070:ES=0
6150 IFA$=CHR$(13)THENPRINTLL$:RETURN
6160 GOTO6130
6170 :
6180 REM ** INFO-MASKE
6190 POKEBA,11
6200 PRINT"[147]"T1$T3$T5$T5$T4$T3$;:FORI=1TO17:PRINTT5$;:NEXT:PRINTT4$T2$;
6210 POKE2023,125
6220 RETURN
6230 :
6240 REM ** SOUND
6250 POKESI+24,15:POKESI+5,11:POKESI+6,0:POKESI,0:POKESI+1,TT:POKESI+4,17
6260 RETURN
6270 POKESI+24,15:POKESI+5,28:POKESI+6,0:POKESI,0:POKESI+1,2:POKESI+4,33:RETURN